(Fopen_network_stream): Set immediate_quit for the connect.

diff --git a/src/process.c b/src/process.c
index 2dd472b463eccd5b99405c907660ac0854d93b41..f9501f9783815412a2a3c25ca9bfb867fe0dad76 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -1720,11 +1720,17 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\
     unrequest_sigio ();
 
  loop:
+
+  immediate_quit = 1;
+  QUIT;
+
   if (connect (s, (struct sockaddr *) &address, sizeof address) == -1
       && errno != EISCONN)
     {
       int xerrno = errno;
 
+      immediate_quit = 0;
+
       if (errno == EINTR)
        goto loop;
       if (errno == EADDRINUSE && retry < 20)
@@ -1747,6 +1753,8 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\
                         Fcons (host, Fcons (name, Qnil)));
     }
 
+  immediate_quit = 0;
+
 #ifdef POLL_FOR_INPUT
   unbind_to (count, Qnil);
 #endif